home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / wild / support / htmltoguide.bas < prev    next >
BASIC Source File  |  1999-05-25  |  319b  |  20 lines
  1.  
  2. WINDOW 1,"H2G"
  3. HTMLIN$="hd1:h.html"
  4.  
  5. '$include basu:_findchar.bas
  6. GUIDEOUT$="ram:a.guide"
  7.  
  8. OPEN HTMLIN$ FOR INPUT AS 1
  9.  
  10. REPEAT reading
  11.  IF EOF(1) THEN EXIT reading
  12.  LINE INPUT #1,a$
  13.  CM=FindChar(a$,"<")
  14.  IF CM
  15.   IF UCASE$(MID$(a$,CM,4))="<BR>"
  16.    SimpleText(MID$(a$,CM,4));
  17.   END IF 
  18.  END IF
  19. END REPEAT reading
  20. CLOSE 1